home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / CaseStudies / ch10.macromedia / spot.dir / 00036.ls < prev    next >
Encoding:
Text File  |  1996-11-11  |  512 b   |  22 lines
  1. global gSlotsList, gCounter, gStartTime
  2.  
  3. on exitFrame
  4.   set timeCheck to the ticks - gStartTime
  5.   if timeCheck > 30 then
  6.     set gCounter to gCounter + 1
  7.     set whichOne to getAt(gSlotsList, gCounter)
  8.     set the loc of sprite (whichOne + 7) to the loc of sprite (whichOne + 2)
  9.     puppetSound("whooshClunk")
  10.     updateStage()
  11.     set gStartTime to the ticks
  12.   end if
  13.   if gCounter = 4 then
  14.     repeat with x = 8 to 11
  15.       puppetSprite(x, 0)
  16.     end repeat
  17.     go("burning")
  18.   else
  19.     go(#loop)
  20.   end if
  21. end
  22.